License Bar

d <- readRDS("output-charts/license_bar.rds")
d